home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / 315 2 files Archive.sit / Any plain-text files / ? Any plain-text file 74 < prev    next >
Text File  |  1995-01-03  |  2KB  |  27 lines
  1. LSE prefix='CALLPAC'
  2.    timenow=hours
  3.    daynow=today
  4.    IF hours = 24 THEN daynow=tomorrow
  5.    IF hours+add<24  THEN DO
  6.       hoursthere=hours+add
  7.       daythere=today'.'
  8.    END
  9.    ELSE DO
  10.       hoursthere=(hours+add)//24
  11.       daythere=tomorrow'.'
  12.    END
  13.    IF timenow=24 THEN timenow=0
  14.    IF biz then if hoursthere>8 & hoursthere<17 THEN DO
  15.       IF prefix~='' | weekend=OK THEN,
  16.           SAY 'Here: 'format(timenow,2,2) daynow' ==> Australia: 'format(hoursthere,2,2) daythere
  17.    END
  18.    IF ~biz THEN if prefix~='' | weekend=OK then,
  19.        SAY 'Here: 'format(timenow,2,2) daynow' ==> Australia: 'format(hoursthere,2,2) daythere
  20. END
  21. EXIT
  22.  
  23. format: PROCEDURE
  24. PARSE ARG num, before, after
  25. num=RIGHT(num,before,0)
  26. num=num||':'COPIES('0',after)
  27. RETURN numy standard library procedures:   you initialize a library base address, then simply call them.  The library base address for a device is the same as its device address.  This address is contained in the io_Device member of the IO request structure, and its value is initialized by a device when you call OpenDevice().?TEXT???  TEXT???Listing 1, the program named "showTimer" that accompanies this article demonstrates how you use an exec device.  It opens the timer device, sends commands to it using DoIO(), SendIO(), and BeginIO(), then closes the device.  Although the program does not call any of the library functions implemented by the timer device, it shows how to set up the timer device's library base address.?TEXT????TEXT???HOW THE SYSTEM LOADS A DEVICE?TEXT????TEXT??╪